# Black magic tables -----------------------------------------------------------------

# Table for main plausibility results
table_data <- 
  prepare_multiple_tables_data(
    prime_texts = c("Mob targeting [perpetrator / accused] could happen in my village.", 
                    "Mob instigated by [bystander / victim] could happen in my village.", 
                    "Mob responding to [observation / suspicion] of crime could happen in my village.",
                    "Mob could happen when all three primes [reduce / heighten] false accusation risk"),
    prime_vars = c("mob_suspects","target_accused", "victim_instigates",  "interaction"),
    treatment_primes = c("Suspect was accused","Suspect described as `accused'", "Victim instigates mob",  "All three primes heighten risk of false accusation"),
    control_primes = c("Suspect was observed","Suspect described as `perpetrator'", "Bystander instigates mob",  "All three primes reduce risk of false accusation"),
    outcome_var = "mob_could_happen",
    data_list = list(
      ug3 %>% filter(offense_black_magic == 1),
      ug3 %>% filter(offense_black_magic == 1),
      ug3 %>% filter(offense_black_magic == 1),
      ug3 %>% filter(!is.na(interaction) & offense_black_magic == 1)
    )
  )



sink("04_manuscript/tables/plausibility_black_magic.tex")
build_table(table_data = table_data)
sink()

# Table for plausibility of woman being targeted

table_data <- 
  prepare_multiple_tables_data(
    prime_texts = c("Mob targeting [man / woman] could happen in my village."),
    prime_vars = c("accused_man"),
    treatment_primes = c("Mob targets man"),
    control_primes = c("Mob targets woman"),
    outcome_var = "mob_could_happen",
    data_list = list(
      ug3 %>% filter(offense_black_magic == 1)
    )
  )

sink("04_manuscript/tables/accused_woman_black_magic.tex")
build_table(table_data = table_data)
sink()

